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NEXT MEETING: 


August 26, 1984 
September 23, 1984 

All meetings are held at 2:00 P.M. in 
room 506, Crosley Tower* University 
of Cincinnati. 
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The First Annual T/S Users Group Picnic is 
Sunday August 26, 1984, 12 noon till 5:00+ 
Bring your own food and drinks and one item 
for tne group to share. We will nave a 
grill and charcoal. This will take the 
place of our August meeting. We will have 
it rain or shine. 

We will try to get one of these areas: 

1) Kestrel Point Shelter 

2) Mallard Pond View Shelter 

3) Island View 

Please call Rick Johnson at 825-1449 or 
Bill Sieber at 353-3482 till 11:30 AM to 
confirm the location. 

Everyone is invited, bring your family 
and recreational equipment. Sorry, no 
computers. 

NOTE: A motor vehicle permit is required 
for Winton Woods. These may be obtained at 
Activity centers. Ranger stations, or the 
park entrance booth. $1.00/day or $3.QQ/yr. 


*********************************^***£***** 

Please submit all articles to :,*^3 
Bill Bernard 

6316 Firestone Dr. a - i-*‘~ 

Fairfield, OH 45014 


August, 1984 


Things have been quite this last month, 
everyone must be on vacation. Send us a 
postcard! 

+++ Timex has finally shipped the 2068 
technical manual. I have mine. 

+++ Jack Roberts still has 2020 printers 
and 2050 modems. 
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OFFICERS: 

Rick Johnson, President 825-1449 
Kurt Albrecht, Treasurer 542-3921 
Gary Szekeres, Secretary 331-8966 


THIS SPACE WAS HELD UNTIL 
PRESS TIME FOR YOUR ARTICLE, 
BUT YOU PUT OFF SUBMITTING 
IT. WE CAN'T PUBLISH WHAT 
YOU DON'T SEND US. 


T/S 2068 Tape Copy Utility 


This machine language program can be used to copy programs, 
arrays, screens, and code from one tape to another. The 
program copies the entire program, array, etc into memory; 
and then writes it to the output tape. The program is 
designed to use two parallel control ports to start/stop 
both the input and output cassette tape recorders. However, . 
the user may manually control the cassette tape recorders. 

The user could even use a single cassette tape recorder for 
both the input and output tapes. 

To use this program, type; 

1) LOAD "tapecopy"C0DE - # 

2) PRINT USER 23760 

i. Note: The program is tucked into system RAM above 

the system variables, but below the stack. ^ 

The program begins by displaying a heading line on the TV anfe 
printer(if attached and on). tS 


If the user has a parallel control port at address 127, bit?% 
on should start the input cassette tape recorder; bit 1 on 
should start the output cassette tape recorder. The bits 
must be latched on until port 127 is again addressed. The ^ 
program will automatically control the starting/stopping of 
both cassette tape recorders. 


WE ESPECIALLY NEED ARTICLES 
FOR THE ZX81 & T/S 1000/1500 
COMPUTERS. 


Cartoon is reprinted from the SINCUS NEWS 
a publication of the Sinclair Users Society 
of Johnson City, New York 



In a manual mode of operations, start the input cassette tape 
recorder when the heading line appears on the TV screen. The 
program will read the input tape and display the type(program, 
array, code), name, starting address/line number, and program 
size. When the copy? prompt appears on the lower screen, stop 
the input cassette tape recorder and start the output cassette 
tape recorder. Then reply f Y‘ (upper or lower case is accept¬ 
able) to the prompt. The program will then write the program, 
array, etc to the output tape. When it is finished it will 
display an '** under the column marked C(opied) on the TV 
screen; it will then write the line to the printer. Stop the 
output cassette tape recorder and start the input cassette 
tape recorder. 

Repeat until finished. 

If you reply anything but 'Y‘ to the copy? prompt the program 
will continue to read the input tape. Therefore the user 
must be sure the input cassette tape recorder continues to 
play and the output cassette tape recorder is stopped. 

The user could use only one cassette tape recorder by switch¬ 
ing input/output tapes and the play/record switches at the 
appropiate times. 

\ ' \ ^ 

The next two pages contain the Zeus 
assembler source for the tape copy'. * 
program. 5 - - / .* 

r i ry i ^ J 

The back page contains a HEX'dump 
of the program which could he POKEtl /j 
into memory if you don't have dp o' 
assembler. A i / ^ 
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04500 
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04900 

05000 
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05200 

05300 

05400 

05500 
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06*00 
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CALL 
CALL 
CALL 
9GAIN CALL 

REACH 


GRG 23760 
ENT 

CALL 5T0PT 
LD HL,&303D 
PUSH HL 

tt6200 ; CL5 
CALL PRHTH 
CALL PAPRH 
STRT1 
CALL EXROM 
SCF 

LD IX , hT'/PE 
LD A,0 ;READ 
LD DE.17 
CALL 252 
UR NC,REACH 
CALL HONE 


CA DDR 


P5IZE 




LD 

A,(HTYPE) 


SLA 

A ;TIMES 

3 FOR 

SLA 

A IHDEX 

INTO 

SLA 

A ; PTYPE 

TABLE 

LD 

C , A 


LD 

5,0 


i-D 

HL , PTYPE 

: BASE 

RDC 

HL ,BC ; -+■ 

INDEX 

LD 

5,3 ; LtNG 

TH 

CALL TU 


LD 

HL, (DFCCJ 

; suR 


(SPUED .HL 

: ADD 

LD 

HL.HNfiME 


LD 

B , 10 LENGTH 

CALi 

L TU 


LD 

HL,BLANK 


LD 

5 f i. 



CALL 

CALL 

SCF 

LD 


“U 

:XRGM 


ri L- : L-’ j 




r.p 

UR 

LD 

BIT 

UR 

LD 


GET IN 


IX : CPROG’s 
LD A.-255 
LD DE, CKLEN) 

CALL 252 : QEQD 

PUSH AF . 

CALL HOME 
CALL STHPT 
POP AF 

U P N C , S KIP 0 K 7 — N Cs 
LD A , (HTYPE) 

0 ;BASIC PGM 
HZ,CADDR ;NO 
A,(HADDR+i) 

7 , A *TRT H D O H •; 
Z CADDR i YES 
HL,BLANK 
LD B . 5 : LEHsGTH 
CALL TU 
UR P5IZE 
LD HL.(HADDR) 

CALL NUMER 
LD HLiBLANK ; 0 N* 

LD 5,1;BLANK BYTE 
CALL TU 

L D HL (HL t: N) ; P G M 

CALL NUMER ;SIZE 
L D HL , K C 0 PY C 0 PY 7 
LD 3,6 

CALL PR NT 1 ; LO UER 
LD A.143 

LD HL , ttS034 ; FLASHA 
PUSH HL 
CALL. 146200 
LD HL . tt301A 
PUSH HL 

LD Dc., 330 JCYCLES 

• pppp 

HALT KEYBOARD W A IT 
LD A,(FLAGS) 

5IT 5,A ;ANYTHING7 
UR Z.GETIN ;NO . 
RES 5.A ;FLG OFF 


LEX 


03100 

LD (FLAGS).A 

03200 

LD A, (LA5TK) ;REPLY 

03300 

PUSH AF 

03400 

LD HL,#3021 

03500 

PUSH HL 

03600 

CALL U6200 CL5 BOT 

03700 

POP AF 

03300 

CP M Y ;YES? 

03900 

UR Z,COPY 

09000 

CP j^YES? 

02 100 

UP Z,COPY 

09200 SKIP 

CALL EHDT U 

09300 

UP AGAIN 

09400 s7 0 P Y 

CALL STRT2 ;STRT TP 

03500 

CALL UAIT 

03*00 

CALL UAIT 

09700 

CALL EXROM 

09300 

SCF 

09900 

LD IX , HTYPE 

10000 

LD A,0 ; URITE LABL 

10100 

LD DE,17 ;LENGTH 

10200 

CALL 104 ;WRITE TP 

10300 

UP NC.ERROR ;OK?-NO 

10400 

CALL HOME 

10500 

CALL UAIT 

10600 

CALL EXROM 

10700 

SCF 

10300 

LD IX . (PROG) ; (DOT 

10900 

LD A,255 

11000 

LD DE.(HLEN) ;LEN 

11100 

CALL 104 ;WRITE DAT 

11200 

UP NC , ERROR ; OK ?-Nsl 

11300 

CALL HOME 

11400 

CALL STOPT 

11500 

LD HL,ASTER 

11600 

LD 5,2 

11700 

CALL TU 

11300 

CALL ENDTU 

11900 

LD 5,3 ;U SCAN LHz 

12000 

LD HL.(SAUEL) 


12100 



i_D A , L 

12200 



AND ttEO ; MODULO 

12300 



LD L,fl 

12400 



DI 

12500 

NE 

XTR 

PUSH HL 

12600 



PUSH BC 

12700 



LD DE . #3024- 

12300 



PUSH DE 

12900 



CALL ttS200 ;PRS 

13000 



POP BC 

13100 



POP HL 

13200 



INC H ; NEXT Lit- 

13300 



DJNZ NEXTR 

13400 



El 

13500 



UP AuhIN ;h tPE 

13500 

EX 

ROM 

DI 

13700 



IN fl, 12ES) 

13300 



SET 7, A 

13900 



OUT (255):A ;E) 

14000 



IN A,(244) 

14100 



LD (HSAUE),A 

14200 



LD A , 1 ;CHUNK 

14300 



OUT (244),A 

14400 



El 

14500 



RET 

14500 

HOME 

DI 

14700 



LD A. (HSAUE) 

14300 



OUT (244),A 

14900 



IN A,(255) 

15000 



RES 7,A 

15100 



OUT (255),A 

15200 



El 

15300 



RET 

15400 

PRHTH 

CALL wLCT2 *sji 

15500 



LD BC.O ;SCRN 

15600 



CALL POSIT 

15700 

PRNTX 

LD HL,TITLE 

15300 



LD 3,65 : LENG' 

15900 



CALL PRINT 

16000 



RET 
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16200 

16300 

164-00 

16500 

16600 

16700 

16600 

16900 

17000 

17100 

17200 

17300 

17400 

17500 

17600 

17700 

17300 

17900 

13000 

13100 

13200 

13300 

13400 

13500 

13600 

13700 

13300 

13900 

19000 

19100 

19200 

19300 

19400 

19500 

19600 

19700 

19300 

19900 

20000 

20100 

20200 

20300 

20400 

20b00 

20600 

20700 

20300 

20900 

21000 

21100 

21200 

21300 

21400 

21500 

21600 

21700 

21300 

21900 

22000 

22100 

22200 

22300 

22400 

22500 

22600 

22700 

22300 

22900 

23000 

23100 

23200 

23300 

23400 

23500 

23600 

23700 

23300 

239O0 

24000 


PAPRH CALL SLCT3 ; PRIHTER 
JR PRNTX 

;************************ 
; IN: HL-ADDR DATA 
; 5 -LENGTH DATA 

;************************ 
TU PUSH HL 
PUSH BC 

CALL SLCT2 ;SCRN 
POP BC 
POP HL 
JR PRINT 
ENDTU CALL SLCT2 
LD A.13 
RST 16 

LD A,(SPOSN+1) 

CP 2 
RET HZ 

LD HL.H303E 
PUSH HL 

CRLL 1*6200 ; SCROL 
CRLL PRNTH 
LD BC, 1*1500 
CRLL POSIT 
RET 

i************************ 

; IN: HL-DATA RDDR 
; B -DRTR LENGTH 

i************************ 
PRINT LD A,(HL) 

R ST 16 
INC HL 
DJNZ PRINT 
RET 

j *+• ****+■**'*-+■*+■*+■•+■*+■ + •+•'+■*+••+•*+'Hh ■+'•+■«+■ •+■ 

; IN: HL-DATA*RDDR’ 

5 -DRTR LENGTH 
******************* 
PUSH HL 
PUSH SC 
LD R,1 
CRLL SELCT 
POP SC 
POP HL 
CRLL PRIHT 
RET _ 

L.L/ R : 4 
JR SELCT 
LD R . 3 
JR SELCT 

LD HL:US029 ;SELECT 
PUSH HL 
CRLL 1+6200 
RET 

J *********************■+”£■+■ 
IN : BC -LINE , COLUMN 

I*******44*++*++++^+^++++ 

POSIT' LD " HL " 1130IE " ; SET AT 
JR P-USH-H 

************************ 
; IN: HL-BINARY It 

OUT: 5 DIGIT NUMBER TO 
; SCREEN 

;************************ 
NUMER RR H 
RR L 
PUSH RF 
LD BC.5000 
CRLL CHVRT 
LD SC.500 
CRLL CHVRT 
LD BC,50 
CRLL CNURT 
LD SC,5 
CRLL CNURT 
POP RF 
RL L 
LD SC,1 
CRLL CNURT 
RET 


PR NT £ 


SLOT 2 

SLOT 3 

SELCT 

PUSHH 


24100 

CHURT 

LD R 

,0 

24200 

CNUT1 

AND R 


24300 


SBC HL.BC 

24400 


JP H 

, CNUT2 

24500 


INC R 


24600 


JR CNUT1 

24700 

CNUT2 

ADD HL.BC 

24300 


OR It 30 

24900 


RST 16 

25000 


RET 


25100 

UR IT 

LD B 

, 100 

25200 

UR IT 1 

HALT 


25300 


DJNZ i 

UR IT 1 

254O0 


RET 


25500 

ST OPT 

LD R 

,0 

25600 


JR OUTTP 

25700 

STRT1 

LD R 

, 1 

25300 


JR OUTTP 

25900 

STRT2 

LD fi . 2 

26000 

OUTTP 

OUT (TRDDR).fl 

26100 


RET 


26200 

ERROR 

RST 3 


26300 

PTYPE 

DEFH 

/PROGRAM 

26400 


DEFH 

/N.ARRAY 

26500 


DEFM 

/C.ARRAY 

26600 


DEFH 

/CODE 

26700 

TITLE 

DEFH 

/TYPE 

26300 


DEFH 

/ i 

26900 


DEFH 

/ SIZE \ 

27000 

BLANK 

DEFH 

/ 

27100 


DEFM 


27200 


DEFM 

/ 

27300 

EOFLN 

DEFB 

13 

27400 

ASTER 

DEFM 

/ * / 

27500 

KCOPY 

DEFH 

/cop ! 4 ? / 

27600 

HSAUE 

DEFB 

0 

27700 

SRUEL 

DEFU 

0 

27300 

HTYPE 

DEFB 

0 

27900 

HNRHE 

DEFM 

/1234567 

23000 

HLEN 

DEFU 

0 

23100 

HR DDR 

DEFU 

0 

23200 


DEFU 

0 

26300 

PRQG 

ECU 2 

3 635 

23400 

DFCC 

EQU 2 

S3634 

23500 

SPOSN 

izQU 23633 

23600 

LRSTK 

ECU 2 

S3560 

23700 

FLAGS 

EQU 23611 

23300 

TRDDR 

EQU 127 


NR HE, 
RDDR 
C/ 
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